home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 58 / 058side4.d64 / party main (.txt) < prev    next >
Commodore BASIC  |  2022-08-29  |  2KB  |  51 lines
  1. 50 poke53272,21
  2. 60 printchr$(142)"[147]":poke53281,0:poke53280,0
  3. 70 cl$="                              ":cr$=chr$(13)
  4. 80 tp$="    [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  5. 90 md$="    [180]                              [170]"
  6. 100 bt$="    [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  7. 105 o$="[158]oscarparty[145]"
  8. 107 p$="[156]oscarparty[145]"
  9. 110 print"[147][129]"tp$:fori=1to5:printmd$:next:printbt$
  10. 120 printtab(7)"[145][145][145][145][145]loadstar proudly presents"
  11. 125 printo$
  12. 126 sys57812"party font",8,0:poke780,0:poke781,0:poke782,8:sys65493
  13. 127 poke53272,19
  14. 128 poke147,0:sys57812"oscar sprite",8,1:sys62631
  15. 129 poke147,0:sys57812"input any.o",8,1:sys62631
  16. 130 v=53248:fori=0to5:pokev+39+i,7:next
  17. 131 fori=0to5:reada:poke2040+i,a:next
  18. 132 pokev+16,56:fori=0to5:reada:pokev+i*2,a:next
  19. 133 fori=0to5:reada:pokev+1+i*2,a:next
  20. 135 pokev+21,63
  21. 140 print"[156]"tp$:fori=1to7:printmd$:next:printbt$
  22. 150 printtab(9)"[145][145][145][145][145][145][145][154]1.  [159]preparation"
  23. 160 printtab(9)"[154]2.  [159]oscar night"
  24. 161 printtab(9)"[154]3.  [159]return to loadstar"
  25. 162 poke198,0:poke214,3:print
  26. 165 fort=1to10:next:printo$:fort=1to60:next:printp$
  27. 170 geta$:ifa$<"1"ora$>"3"then165
  28. 180 ifa$="3"then800
  29. 190 poke53269,0
  30. 200 f$="oscar night":ifa$="1"thenf$="preparation"
  31. 210 poke214,16:print:printtab(8)"[153]loading, please wait..."
  32. 220 print"[144]load"chr$(34)f$chr$(34)",8"
  33. 230 print"run[145][145][145][145][145][145][145][145]"
  34. 240 poke631,13:poke632,13:poke633,13:poke198,3:end
  35. 390 goto110
  36. 800 poke214,21:print
  37. 810 printtab(7)"quit?  [159]are you sure?  (y[159]/n[159])[145]"
  38. 820 geta$:ifa$<>"y"anda$<>"n"then820
  39. 830 ifa$="n"thenprintcl$:goto162
  40. 835 poke53269,0
  41. 840 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  42. 850 ifer%<>63thenend
  43. 860 print"[147]"tab(8)"heading back to loadstar"
  44. 870 print"[144]load"chr$(34)"hello connect"chr$(34)",8"
  45. 880 print"run"
  46. 890 poke631,13:poke632,13:poke633,13:poke198,3
  47. 895 poke53272,21:poke2048,0:poke44,8:end
  48. 1000 data13,14,15,13,14,15
  49. 1010 data26,26,26,60,60,60
  50. 1020 data80,101,122,80,101,122
  51.